(tar-header-block-summarize, tar-clear-modification-flags): "?\ " -> "?\s".

diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el
index a02fd1b2ba948bdae45fca97972f7fe5d9cef4f8..b1f0176b0f3c2b7245be11a5a96251cf9a092738 100644 (file)
--- a/lisp/tar-mode.el
+++ b/lisp/tar-mode.el
@@ -363,7 +363,7 @@ MODE should be an integer which is a file mode value."
                  ((eq type 29) ?M)     ; multivolume continuation
                  ((eq type 35) ?S)     ; sparse
                  ((eq type 38) ?V)     ; volume header
-                 (t ?\ )
+                 (t ?\s)
                  )
            (tar-grind-file-mode mode)
            (if (= 0 (length uname)) uid uname)
@@ -958,7 +958,7 @@ for this to be permanent."
   (save-excursion
     (goto-char (point-min))
     (while (< (position-bytes (point)) tar-header-offset)
-      (if (not (eq (following-char) ?\ ))
+      (if (not (eq (following-char) ?\s))
          (progn (delete-char 1) (insert " ")))
       (forward-line 1))))